home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / flash create (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  61 lines
  1. 10 dimj$(500),g$(40):bk$=" [146]":poke53280,11:poke53281,11
  2. 15 nc=40:mo=154
  3. 18 print"[147][155]           [198][204][193][211][200][195][193][210][196]  [195][210][197][193][212][207][210]"
  4. 19 print"([212]ype quit [155]to return to [211][208][197][197][196] [210][197][193][196])"
  5. 20 print"[197]nter [204]evel #:";bk$;:gosub60500:l=val(a$)
  6. 23 ifa$="quit"ora$="[209][213][201][212]"then8000
  7. 25 f$="level"+str$(l)
  8. 30 open15,8,15,"r0:"+f$+"="+f$+"":input#15,er:close15
  9. 35 ifer<>63then50
  10. 40 print"[150][198][201][204][197] [197][216][201][211][212][211]! [212]ry a higher level #."
  11. 41 fora=1to2000:next
  12. 45 goto18
  13. 50 print"[147]              [204]evel #";l;"[157] "
  14. 55 fori=1to500
  15. 60 print"[155][197]nter [211]tring #";i;"[146] (40 [195]haracters [205][193][216])"
  16. 63 print"[212]ype  /  [155]and press [210]eturn to save."
  17. 65 print"                                        ";
  18. 66 print"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145][145]";bk$;:gosub60500
  19. 70 j$(i)=a$
  20. 80 ifa$="/"then100
  21. 90 print"";:next
  22. 100 print"[147]         [211]aving [204]evel ";l;"..."
  23. 105 open8,8,4,"0:"+f$+",s,w"
  24. 110 fork=1toi
  25. 120 print#8,j$(k)
  26. 130 next k
  27. 140 close8
  28. 145 print"[147]";f$;":"
  29. 150 open3,8,3,"0:"+f$+",s,r"
  30. 160 input#3,a$:ifa$<>"/"thenprinta$:goto160
  31. 170 close3
  32. 175 print"[208]ress [[210][197][212][213][210][206]] to continue."
  33. 176 geta$:ifa$<>chr$(13)then176
  34. 180 goto18
  35. 8000 f$="speed read"
  36. 8010 print"[147]load";chr$(34);f$;chr$(34);",8"
  37. 8020 print"run"
  38. 8030 poke631,13:poke632,13:poke198,2:new
  39. 60500 forz8=1tonc
  40. 60502 geta$:ifa$=""then60502
  41. 60503 ifa$="[147]"ora$=""ora$="[148]"ora$="[145]"ora$="[157]"ora$=""ora$=""then60502
  42. 60504 ifa$=chr$(13)ora$=chr$(141)thenprint"[157] ":goto60544
  43. 60506 ifa$=" "ora$="[160]"then60540
  44. 60508 ifa$=chr$(20)andz8=1then60502
  45. 60510 ifa$=chr$(20)thenz8=z8-1:print"[157][157]  [157][157]";bk$;:goto60502
  46. 60520 ifa$>"/"anda$<":"and(moand2)then60540:numbers
  47. 60522 ifa$>" "anda$<"*"and(moand4)then60540:shift numbers
  48. 60524 ifa$>"[192]"anda$<"[219]"and(moand8)then60540:uppercase characters
  49. 60526 ifa$>"@"anda$<"["and(moand16)then60540:lowercase characters
  50. 60528 ifa$>chr$(160)anda$<chr$(192)and(moand32)then60540:commodore characters
  51. 60530 ifa$>=chr$(0)anda$<""and(moand64)then60540:ctrl characters
  52. 60532 ifa$>")"anda$<"0"and(moand128)then60540:misc characters group 1
  53. 60534 ifa$>"9"anda$<"a"and(moand128)then60540:misc characters group 2
  54. 60536 ifa$>"z"anda$<"[129]"and(moand128)then60540:misc characters group 3
  55. 60538 goto60502
  56. 60540 print"[157]";a$;:poke212,.:printbk$;
  57. 60542 g$(z8)=a$:next
  58. 60544 print"[157][146] "
  59. 60546 a$="":fora=1toz8-1:a$=a$+g$(a):next:ifz8=1thena$=""
  60. 60548 return
  61.